home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / picmanip / pic_r2z / slick / slick.bas (.txt) < prev    next >
Atari STOS Basic  |  1995-05-05  |  11KB  |  196 lines
  1. 1 REM **** SLIDESHOW CONSTRUCTION KIT ****
  2. 100 REM **** Initialize ****
  3. 1000 CLS
  4. 10000 REM **** Blinds ****
  5. 1010 LOCATE
  6. 10100 VARNAME
  7. 10110 FOR
  8. 10120 FOR
  9. 10130 DRAW
  10. 10140 DRAW
  11. 10150 NEXT
  12. 10160 INC
  13. 10170 WAIT
  14. 10180 NEXT
  15. 10190 RETURN
  16. 1020 LOCATE
  17. 1030 LOCATE
  18. 1040 LOCATE
  19. 1050 LOCATE
  20. 1060 SCREEN COPY
  21. 110 MODE
  22. 1100 LOCATE
  23. 11000 REM *** Sideways ****
  24. 1110 IF
  25. 11100 FOR
  26. 11110 DRAW
  27. 11120 DRAW
  28. 11130 DRAW
  29. 11140 DRAW
  30. 11150 NEXT
  31. 11160 FOR
  32. 11170 DRAW
  33. 11180 DRAW
  34. 11190 DRAW
  35. 1120 IF
  36. 11200 DRAW
  37. 11210 NEXT
  38. 11220 RETURN
  39. 1130 IF
  40. 1140 IF
  41. 1150 IF
  42. 1160 IF
  43. 120 RESERVE
  44. 12000 REM *** Curtains ****
  45. 12100 FOR
  46. 12110 DRAW
  47. 12120 NEXT
  48. 12130 RETURN
  49. 130 DIM
  50. 13000 REM *** Hourglass ****
  51. 13100 FOR
  52. 13110 DRAW
  53. 13120 NEXT
  54. 13130 FOR
  55. 13140 DRAW
  56. 13150 WAIT
  57. 13160 NEXT
  58. 13170 RETURN
  59. 140 VARNAME
  60. 14000 REM *** Fade ****
  61. 14100 FADE
  62. 14110 RETURN
  63. 1500 LOCATE
  64. 15000 REM **** Spiral ****
  65. 1510 IF
  66. 15100 FOR
  67. 15110 FOR
  68. 15120 FOR
  69. 15130 FOR
  70. 15140 FOR
  71. 15150 FOR
  72. 15160 FOR
  73. 15170 FOR
  74. 15180 FOR
  75. 15190 FOR
  76. 1520 CLS
  77. 15200 FOR
  78. 15210 FOR
  79. 15220 FOR
  80. 15230 FOR
  81. 15240 FOR
  82. 15250 FOR
  83. 15260 FOR
  84. 15270 FOR
  85. 15280 RETURN
  86. 1530 CURS
  87. 1540 IF
  88. 1550 IF
  89. 1560 VARNAME
  90. 1570 GOTO
  91. 16000 REM **** Checkerboard ****
  92. 16100 FOR
  93. 16110 FOR
  94. 16120 FOR
  95. 16130 FOR
  96. 16140 FOR
  97. 16150 FOR
  98. 16160 FOR
  99. 16170 FOR
  100. 16180 FOR
  101. 16190 FOR
  102. 16200 FOR
  103. 16210 RETURN
  104. 1700 REM **** Save Script ****
  105. 1710 CLS
  106. 1720 IF
  107. 1730 IF
  108. 1740 OPEN OUT
  109. 1750 FOR
  110. 1760 PRINT
  111. 1770 NEXT
  112. 1780 CLOSE
  113. 1790 GOTO
  114. 1800 REM **** Load Script ****
  115. 1810 ON ERROR
  116. 1820 OPEN IN
  117. 1830 REPEAT
  118. 1840 INC
  119. 1850 UNTIL
  120. 1860 CLOSE
  121. 1870 REM **** Run Slideshow ****
  122. 1880 CLEAR KEY
  123. 1890 FOR
  124. 1900 IF
  125. 1910 GET PALETTE
  126. 1920 CLS
  127. 1980 CLS
  128. 1990 IF
  129. 1999 SHOW
  130. 2000 REM **** Add Picture ****
  131. 20000 REM **** APPEAR EFFECTS ****
  132. 2010 SHOW
  133. 20100 IF
  134. 20110 GET PALETTE
  135. 20120 RETURN
  136. 2020 IF
  137. 2030 VARNAME
  138. 2040 FLASH
  139. 2050 WAIT
  140. 2060 GOTO
  141. 3000 REM **** Appear Selection Menu ****
  142. 3010 LOCATE
  143. 3020 LOCATE
  144. 3030 WAIT
  145. 3040 CLS
  146. 4000 REM **** Fade Selection Menu ****
  147. 4010 CLS
  148. 4020 LOCATE
  149. 4030 LOCATE
  150. 4040 LOCATE
  151. 4050 LOCATE
  152. 4060 LOCATE
  153. 4070 LOCATE
  154. 4080 LOCATE
  155. 4100 LOCATE
  156. 4110 IF
  157. 4150 CLS
  158. 4200 IF
  159. 4210 IF
  160. 4220 IF
  161. 4230 IF
  162. 4240 IF
  163. 4250 IF
  164. 4260 IF
  165. 4270 WAIT
  166. 4999 WAIT
  167. 5000 REM **** Slideshow Options Menu ****
  168. 5010 CLS
  169. 5020 LOCATE
  170. 5030 LOCATE
  171. 5040 LOCATE
  172. 5050 LOCATE
  173. 5060 LOCATE
  174. 5100 IF
  175. 5110 IF
  176. 5120 IF
  177. 5130 IF
  178. 5140 IF
  179. 5200 REM **** Select Drive ****
  180. 5210 CLS
  181. 5220 VARNAME
  182. 5230 HIDE
  183. 5300 REM **** Endless Show ****
  184. 5310 IF
  185. 5320 IF
  186. 5330 IF
  187. 5340 RETURN
  188. 5400 REM **** Display Time ****
  189. 5410 LOCATE
  190. 5420 VARNAME
  191. 5430 RETURN
  192. 6000 REM **** Stop Slideshow ****
  193. 6010 IF
  194. 6020 RETURN
  195. 9999 REM **** FADE ROUTINES ****
  196.